Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  437 1531 (N18E48 L=319)   318     56        2 ( 416/1504- 460/1556)  90.0 E49-E46 N15-N19
      2  513 1512 (N17E41 L=327)   621    125        2 ( 458/1488- 587/1536)  18.4 E45-E35 N15-N18
      3 1140 1484 (N23W01 L=  8)   349    107        0 (1115/1441-1174/1529)  74.1 W00-W02 N19-N26
      4  900 1405 (N15E13 L=355)  1860    378       12 ( 788/1303-1016/1494)  42.3 E19-E05 N07-N19
      5 1318 1051 (S00W17 L= 24)   180     75        1 (1288/1014-1347/1082) -26.6 W14-W18 S02-N01
      6 1163 1063 (S02W08 L= 15)   198    126        0 (1097/1045-1218/1071)  23.2 W03-W10 S03-N00
      7  655 1007 (S12E22 L=346)   345    140        2 ( 611/ 957- 686/1068)  74.1 E24-E20 S14-S07
      8 1537  954 (S02W32 L= 40)   337    168        1 (1521/ 878-1550/1030) -82.9 W30-W34 S06-N02
      9  165  895 (S22E64 L=303)  1532    242        3 (  94/ 821- 232/ 964)  21.4 E80-E55 S26-S17
     10  616  781 (S25E23 L=344)  1107    324        1 ( 468/ 739- 760/ 836)  13.4 E34-E13 S29-S21
     11 1344  682 (S21W25 L= 33)  1091    407        2 (1223/ 567-1510/ 803)  54.2 W20-W33 S29-S11
     12 1087  762 (S21W08 L= 15)   364    179        0 (1002/ 737-1168/ 782)  16.7 W02-W12 S21-S18
     13 1567  637 (S20W42 L= 50)   796    149        1 (1534/ 574-1590/ 721) -63.4 W38-W45 S23-S15
     14 1007  550 (S35W07 L= 14)   875    225        1 ( 889/ 531-1120/ 585)   7.1 E02-W14 S36-S32
     15 1415  284 (S45W53 L= 60)  1814    219        2 (1326/ 238-1494/ 338)  -2.4 W40-W65 S47-S41
  

    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