Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1668 (N43W01 L=339)   663    100        1 (1328/1615-1379/1714) -69.4 E01-W04 N38-N46
      2  939 1662 (N28E25 L=313)   252     58        0 ( 920/1634- 953/1699) -68.2 E26-E24 N25-N30
      3 1488 1335 (N24W18 L=356)   264     94        0 (1446/1303-1525/1367)  -9.5 W15-W21 N23-N25
      4 1684 1255 (N26W35 L= 13)   495    154        0 (1663/1179-1713/1333) -53.1 W31-W38 N22-N30
      5  243 1236 (S13E58 L=279)  2158    381        6 ( 146/1118- 284/1324) -57.5 E71-E52 S19-S08
      6 1748 1257 (N29W40 L= 18)   389    114        0 (1730/1199-1761/1313) -56.3 W38-W42 N25-N31
      7  325 1204 (S13E49 L=288)   600    136        3 ( 297/1135- 346/1254)  90.0 E51-E47 S17-S10
      8  476 1181 (S11E37 L=301)   277     85        0 ( 442/1145- 497/1217) -18.4 E40-E34 S13-S10
      9 1440 1167 (N13W19 L=357)   464    109        1 (1400/1143-1481/1202)   0.0 W16-W22 N10-N14
     10  425 1075 (S19E38 L=300)   551    111        2 ( 367/1051- 461/1108)  35.5 E42-E35 S20-S15
     11 1340 1080 (N05W16 L=354)   319    100        0 (1279/1068-1389/1096)  26.6 W12-W18 N03-N07
     12  928  911 (S15E02 L=336)   259     62        2 ( 899/ 879- 951/ 938) -76.0 E03-W00 S17-S13
     13  822  761 (S26E04 L=334)   341    101        2 ( 807/ 712- 840/ 818) -63.4 E05-E02 S29-S23
     14 1762  778 (N02W54 L= 32)   468     71        2 (1733/ 759-1801/ 806)   7.1 W50-W58 N01-N03
     15  263  664 (S48E54 L=283)   619     78        1 ( 224/ 639- 299/ 694) -12.5 E61-E48 S48-S46
     16 1011  615 (S29W12 L=349)   316    128        0 ( 949/ 583-1063/ 644)   0.0 W07-W15 S30-S28
     17 1318  524 (S25W34 L= 12)   224     50        0 (1300/ 493-1336/ 552) -31.0 W31-W36 S26-S23
     18 1583  486 (S18W54 L= 32)   369     93        0 (1558/ 450-1607/ 533) -80.5 W52-W56 S20-S14
     19 1222  438 (S33W33 L= 11)   263     81        0 (1178/ 421-1258/ 457)   9.5 W29-W35 S33-S31
  

    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