Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  904 1645 (N26E26 L=313)   633    150        0 ( 879/1575- 931/1706) -60.9 E28-E22 N21-N30
      2 1340 1670 (N42E00 L=339)   616     94        0 (1311/1623-1358/1705) -51.3 E03-W02 N38-N45
      3 1461 1350 (N24W16 L=356)   285    108        0 (1414/1314-1503/1388)  -8.1 W12-W19 N23-N25
      4 1660 1288 (N27W32 L= 12)   403    111        0 (1646/1240-1678/1348) -56.3 W30-W34 N24-N30
      5  246 1244 (S12E58 L=281)  1365    170        2 ( 203/1169- 269/1329) -39.3 E66-E54 S16-S07
      6 1734 1245 (N27W39 L= 19)   375     94        0 (1717/1192-1747/1292) -59.0 W37-W40 N24-N29
      7  305 1209 (S13E51 L=288)   612     98        1 ( 281/1159- 324/1265) -50.2 E54-E48 S16-S10
      8  451 1190 (S12E39 L=301)   386    121        0 ( 408/1148- 490/1242) -20.6 E43-E34 S13-S09
      9  189 1185 (S17E64 L=276)   895    120        4 ( 165/1132- 212/1231) -39.8 E67-E59 S19-S14
     10 1414 1181 (N13W17 L=357)   477     91        2 (1373/1158-1453/1213)  -9.5 W14-W20 N10-N14
     11  402 1083 (S19E40 L=300)   587    104        2 ( 344/1055- 437/1118)  29.7 E44-E36 S20-S15
     12 1310 1096 (N05W14 L=353)   395    116        0 (1247/1082-1364/1110)  33.7 W10-W16 N03-N07
     13  877  922 (S16E05 L=334)   564    119        3 ( 818/ 887- 935/ 951)  33.7 E08-E02 S19-S13
     14 1787  881 (N09W52 L= 32)   658    165        0 (1762/ 837-1824/ 934)  90.0 W49-W56 N06-N12
     15  796  778 (S26E06 L=333)   354    109        0 ( 780/ 725- 812/ 838) -60.3 E08-E04 S29-S22
     16 1748  789 (N03W52 L= 32)   529     74        1 (1715/ 766-1792/ 817)  14.0 W48-W56 N01-N03
     17  270  663 (S48E53 L=286)   529     99        0 ( 221/ 642- 315/ 688)   3.8 E61-E46 S48-S46
     18  986  630 (S29W10 L=349)   336    144        0 ( 926/ 591-1045/ 657)   0.0 W05-W14 S30-S28
     19 1299  533 (S25W32 L= 12)   247     47        0 (1279/ 507-1324/ 561) -11.3 W30-W35 S26-S23
     20 1537  526 (S18W48 L= 28)   329     43        2 (1510/ 500-1563/ 544)  33.7 W45-W50 S19-S16
     21 1566  491 (S18W53 L= 32)   383     76        0 (1542/ 454-1588/ 528) -71.6 W51-W54 S21-S15
     22 1095  455 (S36W24 L=  4)   314     89        1 (1050/ 438-1139/ 474)  45.0 W21-W26 S38-S33
  

    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