Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1474 1703 (N34W49 L=182)   431     77        1 (1441/1676-1493/1726) -33.7 W46-W51 N31-N35
      2 1087 1449 (N25W12 L=145)  1167    318        3 ( 968/1376-1195/1529) -45.0 W06-W18 N20-N32
      3  561 1496 (N39E24 L=109)   497     95        1 ( 514/1472- 606/1513) -14.0 E28-E20 N36-N40
      4 1720 1446 (N13W57 L=189)   833     96        1 (1681/1405-1752/1477) -59.0 W52-W60 N10-N15
      5 1053 1226 (N12W05 L=138)   613    201        3 ( 967/1170-1155/1277) -48.4 W00-W10 N07-N16
      6 1581 1040 (S08W34 L=167)   298    108        1 (1524/1013-1626/1060) -29.7 W30-W37 S09-S05
      7 1251  936 (S08W12 L=144)   494    185        0 (1208/ 856-1289/1033)  52.1 W07-W14 S11-S02
      8 1625  906 (S16W36 L=168)   601    157        1 (1587/ 836-1659/ 985)  49.4 W32-W38 S19-S12
      9  184  954 (N11E61 L= 72)  1012    281        4 ( 116/ 919- 251/ 971) -14.0 E69-E53 N08-N12
     10 1581  923 (S15W33 L=165)   263     74        1 (1556/ 894-1606/ 947) -76.0 W30-W34 S16-S12
     11  272  903 (N07E52 L= 80)   308     56        2 ( 253/ 879- 293/ 924)  45.0 E54-E50 N05-N07
     12 1466  725 (S24W23 L=155)  1109    327        0 (1294/ 680-1590/ 791)   2.6 W10-W32 S26-S22
     13 1547  635 (S32W28 L=161)  1797    298        2 (1411/ 535-1673/ 749)  20.9 W17-W38 S36-S26
     14  864  694 (S15E16 L=117)   216     92        0 ( 810/ 682- 910/ 706)  -9.5 E18-E12 S15-S14
     15 1831  676 (S36W55 L=188)   722    180        1 (1802/ 659-1874/ 704) -18.4 W51-W60 S37-S33
     16  919  649 (S19E13 L=119)   273    104        0 ( 890/ 623- 953/ 690) -45.0 E14-E11 S20-S16
     17  398  509 (S18E54 L= 79)   418    104        1 ( 379/ 464- 426/ 548) -90.0 E55-E51 S21-S15
     18  543  484 (S22E43 L= 89)   437    119        3 ( 521/ 438- 568/ 534)  50.2 E46-E41 S25-S19
     19  408  434 (S23E57 L= 75)   480     76        1 ( 373/ 406- 448/ 463) -51.3 E59-E54 S25-S20
  

    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