Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  757 1838 (N37E54 L=222)   972     94        0 ( 738/1791- 776/1885) -36.9 E60-E47 N32-N41
      2 1495 1702 (N55W12 L=287)   507     61        0 (1460/1683-1521/1719)   9.5 W08-W15 N52-N56
      3 1043 1651 (N31E19 L=256)   581     95        1 (1018/1601-1063/1703) -63.4 E21-E16 N27-N35
      4 1308 1549 (N33W01 L=276)  1281    332        1 (1233/1388-1377/1673) -43.2 E08-W09 N24-N40
      5 1625 1607 (N52W28 L=303)   567     75        0 (1602/1568-1655/1627)  45.0 W24-W32 N47-N55
      6 1410 1110 (N10W19 L=294)  1868    504        3 (1313/ 895-1467/1304) -78.7 W13-W22 S04-N21
      7  445 1172 (S13E39 L=236)   356     60        0 ( 428/1136- 465/1208) -45.0 E41-E37 S14-S10
      8  697 1044 (S14E19 L=256)   225    106        0 ( 675/ 999- 738/1073)  68.2 E20-E17 S16-S11
      9  568 1003 (S19E26 L=249)   432     78        0 ( 535/ 974- 607/1043) -26.6 E29-E23 S20-S17
     10  583  819 (S30E22 L=254)   403    115        0 ( 542/ 769- 626/ 867)  63.4 E23-E19 S33-S25
     11  702  725 (S32E11 L=264)   224     76        0 ( 684/ 689- 715/ 768)  90.0 E11-E09 S34-S29
     12  973  432 (S42W18 L=293)   686    218        1 ( 855/ 411-1071/ 452)  20.6 W09-W25 S45-S38
     13 1273  427 (S31W38 L=313)   591    107        0 (1216/ 413-1333/ 449)  18.4 W33-W42 S33-S29
     14 1557  321 (S26W70 L=345)  1779    151        2 (1488/ 292-1622/ 359)  48.4 W64-W77 S30-S21
  

    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