Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  434 1703 (N32E56 L=201)   578    147        1 ( 415/1673- 453/1735) -40.6 E60-E52 N29-N35
      2 1216 1465 (N23W07 L=264)   254     49        1 (1198/1435-1237/1490)  90.0 W05-W07 N21-N25
      3 1134 1466 (N22W01 L=259)   341     66        2 (1105/1433-1171/1489)  45.0 W00-W03 N20-N24
      4  203 1358 (N08E65 L=192)  2507    365        8 ( 123/1301- 271/1399)  14.7 E78-E56 N04-N10
      5 1382 1284 (N14W19 L=276)   291     67        2 (1351/1257-1409/1313) -26.6 W16-W20 N12-N15
      6 1402 1207 (N10W21 L=278)   911    249        4 (1331/1136-1451/1255) -32.0 W15-W24 N05-N12
      7  969 1227 (N05E06 L=252)   193     62        0 ( 929/1209-1001/1251)  45.0 E07-E03 N04-N07
      8  262 1183 (S03E54 L=204)   511    141        1 ( 228/1134- 306/1234) -68.2 E57-E49 S05-N00
      9  165 1084 (S09E63 L=194)   705    124        0 ( 141/1035- 200/1124)  56.3 E66-E59 S12-S06
     10  708  840 (S20E18 L=240)   189     45        1 ( 687/ 816- 728/ 867) -71.6 E18-E16 S21-S18
     11 1503  803 (S12W33 L=291)   413    117        3 (1450/ 779-1555/ 830)  29.7 W29-W36 S14-S10
     12 1360  754 (S17W24 L=282)   224     67        0 (1326/ 733-1390/ 771) -11.3 W21-W26 S18-S16
     13  868  202 (S66W01 L=259)   606     83        2 ( 844/ 171- 893/ 225) -35.5 E02-W05 S69-S63
  

    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