Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1215 1678 (N47W21 L=178)   405     83        2 (1185/1650-1252/1706)  26.6 W17-W25 N45-N49
      2 1304 1682 (N47W30 L=187)   393     59        1 (1273/1662-1332/1701) -26.6 W27-W32 N44-N48
      3  856 1295 (N22E10 L=146)   762    298        4 ( 784/1226- 932/1335)  11.3 E14-E04 N17-N24
      4  271 1292 (N22E58 L= 99)   356     83        1 ( 255/1251- 294/1333) -78.7 E59-E55 N19-N24
      5 1477 1267 (N17W31 L=188)   238     54        0 (1462/1237-1491/1298)  71.6 W30-W32 N15-N18
      6 1690 1004 (S01W45 L=201)   288     50        2 (1665/ 979-1717/1023) -33.7 W42-W47 S02-N00
      7 1488  900 (S06W29 L=186)   610    138        3 (1438/ 849-1531/ 950) -40.6 W25-W32 S08-S02
      8 1781  912 (S07W54 L=210)   413     76        2 (1749/ 894-1817/ 926) -15.9 W50-W57 S08-S06
      9 1152  798 (S10W07 L=163)   685    348        3 (1036/ 756-1275/ 886) -32.7 W00-W14 S13-S04
     10 1607  843 (S10W38 L=195)   277     80        0 (1563/ 827-1637/ 867)   0.0 W34-W40 S11-S08
     11 1800  797 (S15W57 L=214)   969    138        5 (1757/ 754-1836/ 842)  35.5 W52-W61 S17-S12
     12  220  754 (S12E63 L= 93)   989    116        2 ( 193/ 701- 251/ 800) -63.4 E67-E60 S14-S08
     13 1041  733 (S14E00 L=156)   436    203        4 ( 972/ 707-1128/ 778) -32.0 E04-W05 S15-S10
     14 1138  673 (S18W06 L=162)   564    207        4 (1059/ 613-1220/ 733)  28.6 W00-W11 S21-S14
     15  321  588 (S22E58 L= 99)  1346    255        4 ( 291/ 491- 368/ 714)  40.1 E68-E47 S29-S13
     16 1480  624 (S24W30 L=186)  1397    283        4 (1379/ 519-1567/ 712)  47.5 W23-W36 S30-S18
     17  489  687 (S15E38 L=118)   439     72        3 ( 451/ 662- 529/ 705)   8.1 E41-E34 S16-S14
     18  402  666 (S17E46 L=110)   373     64        0 ( 378/ 641- 432/ 686) -36.9 E48-E43 S18-S15
     19  604  302 (S45E45 L=112)   421     55        0 ( 578/ 286- 635/ 316)   0.0 E48-E40 S46-S43
     20 1246  250 (S53W18 L=174)   429     67        1 (1222/ 227-1267/ 283)  53.1 W15-W20 S55-S49
     21 1346  210 (S60W34 L=191)  1432    136        2 (1296/ 167-1385/ 259) -23.2 W24-W59 S68-S52
  

    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