Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  932 1716 (N33E30 L=302)   881    173        0 ( 857/1680-1002/1740)  32.0 E33-E24 N28-N35
      2  776 1610 (N21E34 L=298)   262     72        0 ( 745/1578- 799/1641)  90.0 E35-E32 N18-N23
      3 1503 1560 (N42W15 L=347)   405     60        0 (1473/1540-1529/1580)  51.3 W12-W17 N39-N44
      4  293 1112 (S19E51 L=280)   369     47        0 ( 269/1087- 311/1138) -21.8 E54-E48 S20-S18
      5  600 1095 (S13E27 L=305)   562    187        0 ( 541/1061- 677/1125)   5.7 E30-E20 S16-S11
      6 1265 1061 (N03W12 L=344)   600    135        2 (1233/1005-1313/1118)  90.0 W10-W13 N00-N07
      7 1729 1013 (N15W44 L= 16)   808    195        0 (1674/ 941-1795/1095) -15.9 W37-W51 N12-N17
      8  254  857 (S36E53 L=279)   554     78        1 ( 225/ 831- 302/ 877)  16.7 E57-E46 S37-S34
      9 1149  805 (S14W13 L=345)   347    108        0 (1097/ 776-1196/ 841)  63.4 W11-W15 S17-S11
     10  616  722 (S34E17 L=315)   685    168        3 ( 544/ 705- 706/ 745)  14.0 E22-E10 S36-S31
     11  414  675 (S43E34 L=297)   706    131        0 ( 366/ 652- 480/ 699)  14.0 E39-E27 S45-S41
     12 1384  447 (S26W44 L= 15)  2181    409        4 (1215/ 401-1583/ 512)  45.0 W33-W54 S34-S16
     13 1157  393 (S37W33 L=  4)   382     62        1 (1125/ 370-1183/ 415)   0.0 W29-W35 S38-S35
  

    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