Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1389 1446 (N18W34 L=241)   214     80        1 (1348/1432-1433/1464) -45.0 W31-W36 N15-N19
      2 1751 1410 (N05W59 L=266)   351     77        1 (1721/1388-1789/1433) -33.7 W56-W63 N03-N07
      3 1437 1385 (N13W34 L=242)   308     66        1 (1402/1362-1468/1415)  11.3 W31-W36 N12-N14
      4 1642 1291 (N02W44 L=252)   514    158        1 (1590/1226-1687/1352)  18.4 W38-W50 N00-N04
      5  806 1285 (N25E06 L=202)   211    186        0 ( 748/1259- 872/1336) -50.2 E09-E01 N21-N28
      6 1178 1165 (N08W12 L=219)   774    184        3 (1125/1092-1251/1215)   0.0 W08-W16 N04-N11
      7 1761 1118 (S10W48 L=256)   302     93        1 (1736/1075-1785/1165) -80.5 W47-W49 S13-S07
      8  153 1134 (N31E65 L=143)   786     74        0 ( 120/1097- 181/1164) -29.1 E71-E60 N28-N33
      9  398 1007 (N18E39 L=168)   380    101        1 ( 371/ 954- 420/1051)  51.3 E41-E36 N15-N20
     10  127  913 (N18E71 L=137)   551     59        1 ( 110/ 879- 142/ 939) -56.3 E73-E67 N16-N19
     11  789  870 (N02E17 L=191)   378     98        0 ( 752/ 817- 825/ 911) -80.5 E18-E15 S01-N05
     12 1476  747 (S23W19 L=227)  1335    312        0 (1406/ 621-1537/ 872)  40.2 W12-W25 S28-S16
     13  986  828 (S05E07 L=201)   189     97        0 ( 962/ 798-1032/ 861) -68.2 E07-E05 S07-S02
     14 1081  821 (S08E02 L=206)   198     65        0 (1046/ 795-1103/ 850)  26.6 E04-W00 S08-S06
     15  708  705 (S05E26 L=182)   501    229        0 ( 674/ 619- 784/ 764)  63.4 E28-E20 S10-S02
     16 1873  730 (S38W59 L=266)   899     86        2 (1842/ 695-1914/ 757)   4.4 W53-W67 S39-S35
     17  985  672 (S14E11 L=196)   418    159        0 ( 941/ 616-1045/ 704)  23.2 E14-E07 S16-S12
     18  313  557 (S05E62 L=146)  5297    392        7 ( 215/ 379- 378/ 685)  78.1 E82-E54 S17-N03
     19  824  563 (S16E24 L=184)   268     21        0 ( 799/ 544- 848/ 584)   0.0 E25-E22 S17-S14
     20  714  462 (S19E35 L=173)   334     84        1 ( 683/ 445- 757/ 490)   0.0 E37-E31 S20-S17
     21 1264  430 (S37E02 L=205)   473    106        1 (1220/ 389-1303/ 475)  23.2 E06-W01 S38-S34
     22  573  337 (S24E53 L=155)  1464    178        4 ( 499/ 297- 658/ 388)   2.9 E63-E43 S25-S22
  

    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