Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  542 1743 (N24E58 L=303)   625    205        0 ( 501/1718- 584/1767)  -5.2 E63-E52 N22-N25
      2 1301 1278 (N16W08 L= 10)   196     99        0 (1272/1228-1315/1327) -51.3 W05-W10 N12-N17
      3 1125 1235 (N08E00 L=  1)   322    118        0 (1107/1179-1151/1291) -71.6 E01-W02 N05-N11
      4  254 1200 (S15E56 L=305)   860    141        2 ( 232/1145- 277/1268) -45.0 E59-E52 S18-S10
      5 1763 1110 (N21W44 L= 45)  1091    266        0 (1697/ 994-1812/1212) -29.7 W36-W51 N16-N25
      6  704 1172 (S06E22 L=339)   310     73        0 ( 669/1141- 747/1196)  45.0 E23-E19 S08-S04
      7  347 1133 (S17E46 L=315)   264     71        0 ( 331/1093- 371/1156)  76.0 E46-E44 S19-S15
      8  244 1067 (S23E54 L=308)   983    243        4 ( 180/1039- 319/1103)  -4.1 E60-E46 S24-S20
      9 1056 1048 (S04W01 L=  2)   215     71        0 (1026/1006-1089/1083) -36.9 E01-W03 S05-S02
     10  855  777 (S24E03 L=359)   361    106        0 ( 796/ 758- 901/ 802)  45.0 E05-W00 S26-S21
     11  959  606 (S31W09 L= 10)  1613    451        2 ( 765/ 526-1157/ 705)   3.9 E06-W23 S34-S27
     12 1643  450 (S17W62 L= 63)  1569    239        1 (1547/ 367-1725/ 543)  70.3 W58-W66 S24-S10
     13 1264  334 (S37W42 L= 43)   501    112        1 (1210/ 320-1323/ 352)  39.8 W38-W45 S39-S34
  

    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