Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1661 (N48W02 L= 50)   351     78        1 ( 945/1622- 988/1695) -90.0 W00-W04 N45-N51
      2 1557 1652 (N39W57 L=104)   564    100        1 (1504/1640-1606/1667)  -8.7 W51-W64 N37-N40
      3 1287 1378 (N25W21 L= 68)   239     77        0 (1260/1344-1316/1414) -68.2 W19-W22 N22-N27
      4 1650 1389 (N21W50 L= 97)   311     76        0 (1614/1363-1677/1410) -36.9 W46-W51 N18-N22
      5 1061 1261 (N19W04 L= 52)   193     96        0 (1048/1219-1090/1297)  59.0 W03-W06 N16-N21
      6  697  996 (N06E21 L= 27)   499    154        1 ( 624/ 969- 764/1031)  12.5 E25-E16 N04-N07
      7  959  972 (N02E04 L= 43)   303    124        0 ( 918/ 928-1001/1027)  45.0 E07-E01 N00-N05
      8 1704  881 (S11W45 L= 93)   848    243        4 (1658/ 772-1743/ 972) -85.6 W41-W49 S17-S04
      9  197  875 (S00E64 L=344)   459     52        3 ( 172/ 851- 226/ 893)   0.0 E67-E59 S01-N00
     10 1609  837 (S12W37 L= 85)   304     97        1 (1573/ 817-1636/ 884)  36.9 W34-W39 S13-S09
     11  192  794 (S05E67 L=341)  1718    146        6 ( 151/ 713- 222/ 855)  66.0 E72-E61 S10-S01
     12  522  774 (S07E35 L= 13)   264     77        2 ( 483/ 754- 555/ 797) -21.8 E37-E32 S08-S05
     13 1155  716 (S15W06 L= 53)   252     77        0 (1127/ 681-1191/ 743)  45.0 W03-W08 S17-S13
     14  426  664 (S14E45 L=  3)   299    135        1 ( 397/ 626- 468/ 710) -80.5 E46-E40 S16-S10
     15 1795  632 (S29W61 L=108)   701    110        1 (1769/ 584-1813/ 684) -66.8 W58-W63 S32-S25
     16  531  600 (S18E38 L= 10)   454    115        0 ( 501/ 563- 551/ 657)  56.3 E40-E35 S20-S14
     17  343  560 (S21E57 L=350)   489    131        1 ( 324/ 483- 368/ 601)  71.6 E59-E55 S26-S17
     18 1271  545 (S28W13 L= 60)   340    114        1 (1212/ 525-1309/ 572)   8.1 W08-W15 S28-S26
     19  752  526 (S25E23 L= 24)   445    136        2 ( 700/ 500- 815/ 562)  21.8 E27-E17 S26-S22
     20  443  528 (S23E48 L=359)   345     58        2 ( 421/ 504- 465/ 554) -90.0 E50-E45 S24-S21
     21 1433  486 (S34W26 L= 73)   537    111        1 (1383/ 471-1489/ 503)  -6.3 W21-W30 S35-S32
     22  621  420 (S32E37 L= 11)   353     57        1 ( 589/ 398- 644/ 445)  15.9 E40-E33 S33-S29
     23  747  369 (S37E28 L= 19)   478    126        1 ( 688/ 354- 811/ 391) -12.5 E32-E23 S37-S34
     24  535  278 (S44E60 L=348)  1142    110        1 ( 511/ 230- 570/ 327)  37.6 E67-E52 S49-S39
  

    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