Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  827 1816 (N62W18 L=113)   374     71        0 ( 796/1793- 857/1839)  10.3 W12-W23 N59-N63
      2 1155 1795 (N47W41 L=137)   446     74        1 (1134/1756-1176/1824)  35.5 W38-W45 N43-N48
      3 1427 1713 (N32W53 L=148)  1480    230        4 (1350/1618-1517/1765) -90.0 W49-W57 N24-N37
      4  960 1704 (N47W19 L=115)   262     40        0 ( 938/1684- 982/1721) -90.0 W17-W21 N44-N48
      5  987 1371 (N25W07 L=102)   256    114        0 ( 959/1317-1022/1416) -90.0 W06-W07 N20-N27
      6  553 1396 (N38E22 L= 73)   314     82        0 ( 521/1367- 593/1413) -45.0 E24-E19 N34-N39
      7  263 1392 (N45E55 L= 41)   639     60        1 ( 227/1374- 299/1408) -13.0 E61-E48 N43-N46
      8  503 1237 (N29E28 L= 67)   285     99        0 ( 480/1212- 534/1264)  26.6 E30-E25 N27-N30
      9  239 1037 (N23E54 L= 41)  2995    484       13 ( 183/ 835- 304/1212) -76.0 E61-E48 N10-N34
     10  398 1124 (N25E38 L= 57)   478    141        1 ( 346/1103- 455/1154) -18.4 E42-E33 N22-N27
     11 1163  842 (S09W03 L= 99)   464    170        0 (1136/ 757-1199/ 910)  49.4 W00-W06 S13-S05
     12 1757  652 (S39W45 L=140)   845    150        1 (1694/ 621-1821/ 675) -10.6 W37-W53 S40-S36
     13 1215  550 (S28E01 L= 94)   209     32        0 (1188/ 533-1238/ 568)   0.0 E03-W00 S28-S26
     14  924  476 (S25E21 L= 74)   306    109        0 ( 863/ 462- 978/ 489) -14.0 E25-E17 S25-S23
     15 1215  228 (S54E15 L= 80)  1478    233        2 (1112/ 153-1306/ 283)   6.8 E30-E04 S58-S49
  

    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