Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  538 1744 (N24E58 L=303)   634    233        0 ( 495/1717- 584/1770)  -9.5 E64-E52 N22-N25
      2 1206 1379 (N19W00 L=  2)   294     97        1 (1179/1348-1236/1417) -45.0 E01-W02 N16-N20
      3 1119 1244 (N08E01 L=  1)   232     96        0 (1104/1194-1132/1295) -80.5 E02-W00 N05-N11
      4 1746 1137 (N22W42 L= 44)  1137    347        2 (1669/ 994-1810/1277) -33.7 W33-W51 N16-N28
      5  252 1199 (S15E56 L=305)   820    140        2 ( 231/1150- 275/1271) -49.4 E59-E52 S17-S10
      6  698 1170 (S07E22 L=339)   289     95        1 ( 667/1126- 741/1196)  53.1 E23-E20 S09-S04
      7  652 1067 (S14E22 L=339)   213    107        1 ( 637/1023- 677/1123) -45.0 E24-E19 S15-S10
      8  246 1068 (S23E53 L=308)  1117    282        6 ( 176/1039- 317/1105)   0.0 E60-E46 S24-S19
      9  849  778 (S25E03 L=358)   338    111        2 ( 792/ 759- 895/ 805)  50.2 E06-W00 S27-S21
     10  947  611 (S31W08 L= 10)  1393    447        5 ( 762/ 526-1150/ 707)   3.9 E06-W23 S33-S28
     11 1633  443 (S18W61 L= 63)  1405    250        2 (1532/ 360-1726/ 545)  69.4 W58-W64 S25-S09
     12 1427  345 (S31W52 L= 53)   324     69        1 (1407/ 325-1450/ 363)   0.0 W49-W54 S32-S29
     13 1269  335 (S37W42 L= 44)   486    135        2 (1209/ 322-1332/ 353)  35.5 W38-W46 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