Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1677 (N46E25 L=128)  2925    477        8 ( 642/1600- 923/1728)  -2.2 E36-E10 N39-N50
      2 1129 1627 (N44W07 L=160)   435     98        2 (1104/1583-1163/1655)  39.8 W04-W10 N40-N45
      3 1538 1537 (N37W40 L=193)   415     92        1 (1500/1517-1573/1559)   9.5 W36-W43 N35-N38
      4  763 1329 (N21E18 L=135)   466    107        2 ( 725/1290- 800/1382) -39.8 E21-E15 N18-N24
      5  315 1211 (N12E51 L=102)   598    132        0 ( 290/1159- 342/1265) -50.2 E54-E48 N08-N14
      6  763 1236 (N15E17 L=136)   270     82        1 ( 721/1220- 811/1249)   9.5 E20-E14 N14-N16
      7  667 1220 (N14E24 L=129)   436    139        5 ( 625/1183- 705/1246) -33.7 E26-E20 N11-N15
      8  803 1179 (N12E14 L=139)   274     61        2 ( 786/1148- 822/1214)  90.0 E15-E13 N10-N14
      9  689 1110 (N07E21 L=132)   363    112        0 ( 644/1096- 749/1130)  -8.1 E24-E17 N06-N08
     10 1030  904 (S04W01 L=154)   269    113        0 (1014/ 850-1048/ 967)  81.9 W00-W01 S07-N00
     11  205  799 (S15E63 L= 91)  1065    158        3 ( 172/ 761- 225/ 852)  63.4 E66-E59 S17-S11
     12  384  446 (S39E53 L=100)  1569    432        0 ( 332/ 401- 451/ 481)  20.2 E63-E44 S44-S35
     13 1092  372 (S41W08 L=161)   878    158        0 (1005/ 344-1179/ 400)   8.1 W00-W14 S43-S38
  

    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