Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  769 1716 (N33E38 L= 93)   561    114        1 ( 737/1683- 796/1765) -76.0 E40-E36 N29-N37
      2 1227 1665 (N42E05 L=127)  1079    195        1 (1184/1587-1281/1739) -39.3 E10-W01 N37-N47
      3  529 1528 (N15E45 L= 86)   759    141        3 ( 489/1480- 572/1594) -33.7 E51-E41 N12-N18
      4  864 1540 (N23E23 L=108)   280     57        1 ( 843/1516- 880/1576) -45.0 E24-E21 N21-N25
      5  601 1493 (N14E39 L= 93)   259     56        1 ( 585/1464- 627/1513)  76.0 E40-E37 N12-N16
      6  789 1428 (N15E24 L=108)   290     69        1 ( 775/1388- 808/1464) -53.1 E25-E22 N12-N16
      7 1098 1309 (N15E03 L=129)   367    112        4 (1067/1276-1136/1348) -14.0 E04-W00 N12-N17
      8  186 1252 (S08E67 L= 64)  1778    329        5 ( 133/1212- 225/1303)  36.9 E75-E61 S10-S04
      9 1094 1190 (N08W00 L=132)   321    147        0 (1050/1143-1128/1244) -21.8 E03-W02 N05-N10
     10  993  835 (S15W03 L=134)   247     37        1 ( 961/ 814-1017/ 855)  14.0 W00-W04 S15-S13
     11 1724  789 (N01W52 L=183)   480     96        0 (1685/ 745-1757/ 827)  59.0 W49-W54 S02-N03
     12  657  636 (S35E14 L=117)   306     55        1 ( 635/ 610- 688/ 665) -21.8 E16-E11 S36-S33
     13 1277  307 (S40W42 L=174)  1307    295        2 (1163/ 279-1403/ 338)  14.0 W32-W53 S42-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