Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  941 1557 (N38W12 L=162)   706    190        0 ( 895/1478-1009/1619)  22.6 W06-W18 N34-N41
      2 1231 1541 (N28W29 L=179)   296     69        0 (1212/1505-1247/1575)  68.2 W27-W30 N25-N30
      3 1359 1517 (N23W35 L=186)   982    176        2 (1277/1478-1440/1545) -41.2 W30-W39 N18-N26
      4  297 1216 (N35E45 L=105)   372     92        0 ( 270/1198- 331/1243) -26.6 E47-E41 N32-N36
      5  482 1161 (N27E30 L=120)   541    157        1 ( 421/1139- 559/1194) -10.3 E34-E23 N25-N28
      6  701 1094 (N18E17 L=134)   768    133        1 ( 644/1070- 770/1143) -29.7 E19-E12 N15-N21
      7 1350 1066 (S01W19 L=169)   963    207        1 (1247/1039-1447/1099) -18.4 W12-W24 S04-N01
      8 1312  985 (S04W15 L=165)   404    136        1 (1262/ 945-1380/1004)   0.0 W10-W19 S05-S03
      9 1530  902 (S15W26 L=176)   517     87        1 (1486/ 872-1574/ 932)  -8.1 W22-W29 S17-S13
     10  505  859 (N09E35 L=115)   221     25        0 ( 491/ 838- 524/ 882)  71.6 E36-E33 N07-N10
     11 1243  749 (S16W05 L=155)   728    165        1 (1215/ 672-1279/ 840)  68.2 W03-W07 S20-S10
     12  922  600 (S16E17 L=133)   720    142        1 ( 826/ 567- 984/ 629) -41.2 E22-E14 S18-S11
     13  593  435 (S18E45 L=106)   690    133        1 ( 545/ 406- 652/ 459) -14.0 E47-E39 S19-S15
     14  650  348 (S24E46 L=105)   676     91        2 ( 610/ 307- 687/ 387) -90.0 E47-E43 S27-S21
     15  909  173 (S45E42 L=108)   940    139        0 ( 891/ 133- 931/ 211)  41.6 E47-E37 S49-S41
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y