Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1211 1651 (N45W19 L=213)   285     72        0 (1174/1636-1250/1670) -15.9 W15-W22 N43-N46
      2  686 1640 (N46E29 L=166)   357     79        1 ( 666/1611- 727/1663)  36.9 E30-E25 N43-N47
      3 1377 1548 (N36W30 L=224)   394     42        1 (1349/1518-1405/1572) -56.3 W27-W31 N34-N38
      4 1769 1515 (N31W72 L=267)   698     58        1 (1738/1498-1797/1535)  -5.7 W65-W78 N29-N32
      5  373 1288 (N21E47 L=148)   770    165        2 ( 323/1228- 406/1328) -50.2 E51-E43 N17-N23
      6 1008 1269 (N19E00 L=194)   256    104        0 ( 981/1222-1040/1311) -68.2 E02-W01 N16-N22
      7  251 1219 (N16E58 L=136)  1077    150        1 ( 231/1150- 273/1283) -77.5 E61-E55 N11-N20
      8 1602 1025 (N02W38 L=233)   248     90        1 (1562/1007-1636/1053)  18.4 W34-W40 N00-N03
      9  722  947 (S00E19 L=176)   322     77        2 ( 677/ 921- 753/ 977)  26.6 E21-E16 S01-N01
     10  866  844 (S07E10 L=184)   929    232        1 ( 779/ 786- 954/ 922) -39.3 E15-E04 S10-S01
     11 1492  866 (S07W30 L=224)   387    115        0 (1464/ 829-1515/ 898)  63.4 W27-W31 S09-S05
     12 1335  766 (S13W19 L=214)   499    175        4 (1277/ 716-1368/ 834)  50.2 W15-W21 S16-S08
     13 1398  770 (S13W23 L=218)   211     70        1 (1372/ 754-1426/ 792)   0.0 W21-W25 S14-S11
     14  557  662 (S18E33 L=162)  2608    494        9 ( 418/ 524- 717/ 774) -41.8 E42-E22 S27-S10
     15  912  594 (S23E09 L=186)  1158    261        1 ( 832/ 489-1004/ 678)  45.0 E15-E02 S30-S17
     16 1502  544 (S29W34 L=228)  2231    381        5 (1413/ 440-1617/ 644)  57.3 W26-W41 S36-S22
     17  563  564 (S25E34 L=160)   304     34        1 ( 545/ 543- 586/ 590) -33.7 E35-E32 S26-S22
     18  774  380 (S39E22 L=172)   552     73        0 ( 723/ 355- 808/ 414) -38.7 E25-E19 S40-S35
     19 1222  322 (S45W15 L=209)  1013    139        4 (1169/ 291-1277/ 358) -15.3 W09-W20 S48-S41
     20  851  222 (S54E22 L=172)   443     53        1 ( 828/ 198- 874/ 245)  23.2 E25-E18 S57-S51
  

    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