Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  950 1752 (N35E29 L=299)   390     72        0 ( 929/1718- 970/1787) -56.3 E30-E26 N32-N38
      2  831 1708 (N29E34 L=294)   461    148        0 ( 759/1663- 883/1730)   0.0 E39-E28 N26-N29
      3 1223 1445 (N22W00 L=328)   388    150        0 (1164/1386-1272/1477) -20.6 E04-W04 N19-N23
      4  958 1435 (N14E15 L=313)   198     76        0 ( 931/1402- 990/1464) -18.4 E17-E11 N13-N15
      5 1104 1342 (N13E04 L=324)   218     66        1 (1076/1309-1124/1373) -21.8 E06-E01 N11-N14
      6  818 1249 (N00E17 L=311)   417    136        2 ( 779/1195- 863/1305) -23.2 E20-E13 S02-N02
      7 1739 1043 (N15W44 L= 12)  1273    347        1 (1645/ 900-1806/1169) -24.2 W33-W54 N08-N20
      8 1607 1088 (N13W33 L=  1)   684    140        0 (1588/1018-1631/1154) -83.7 W31-W34 N08-N17
      9  636 1105 (S12E24 L=304)   368    146        0 ( 573/1080- 701/1125)  14.0 E28-E20 S13-S11
     10  158 1085 (S22E67 L=261)   504     66        0 ( 125/1071- 183/1105)   5.7 E73-E63 S23-S20
     11  824  884 (S20E08 L=320)   348    119        1 ( 768/ 868- 883/ 901)  23.2 E11-E04 S21-S17
     12  582  850 (S28E23 L=305)   578    168        0 ( 512/ 827- 647/ 894)  33.7 E28-E18 S30-S24
     13  761  660 (S35E06 L=322)   976    218        3 ( 658/ 626- 860/ 701)  34.7 E13-W00 S38-S29
     14 1454  403 (S28W51 L= 19)  1439    220        0 (1356/ 355-1534/ 456)  67.4 W46-W55 S34-S22
     15 1239  262 (S44W50 L= 18)   600     75        1 (1211/ 229-1265/ 294) -10.3 W44-W55 S45-S42
  

    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