Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  777 1700 (N57W03 L= 42)   437     35        2 ( 751/1677- 801/1722) -45.0 W00-W06 N54-N59
      2  438 1539 (N54E39 L=360)   345     45        0 ( 419/1515- 465/1555)  26.6 E41-E35 N52-N55
      3 1187 1325 (N20W17 L= 56)   311    172        1 (1116/1269-1228/1356) -60.3 W13-W19 N15-N23
      4  938 1150 (N16E02 L= 37)   863    226        1 ( 857/1077-1000/1219) -74.7 E05-W01 N11-N22
      5 1756  932 (S18W46 L= 84)  1963    364        4 (1690/ 778-1808/1079)  45.0 W38-W53 S25-S10
      6  996 1001 (N07E02 L= 36)   495    156        0 ( 964/ 940-1022/1074)  54.5 E05-W00 N03-N10
      7  645 1000 (N14E23 L= 15)   232     91        0 ( 631/ 963- 658/1043)  53.1 E24-E21 N12-N16
      8  287  964 (N19E52 L=346)   402     95        0 ( 275/ 910- 296/1011) -90.0 E53-E51 N15-N21
      9 1860  892 (S25W58 L= 96)   952    122        0 (1813/ 841-1903/ 940)   8.7 W51-W65 S26-S22
     10  893  820 (S01E12 L= 26)   347    100        1 ( 873/ 775- 912/ 868)  78.7 E13-E10 S04-N01
     11 1752  751 (S30W44 L= 83)   611    116        0 (1710/ 733-1790/ 779) -12.5 W39-W48 S31-S26
     12 1129  602 (S20E04 L= 34)   307    109        0 (1083/ 574-1172/ 623) -45.0 E07-E02 S22-S18
     13 1321  416 (S39W03 L= 42)  1230    220        2 (1249/ 348-1382/ 504)  33.7 E03-W09 S42-S33
     14 1053  440 (S29E14 L= 25)   369    140        0 (1000/ 417-1118/ 478)   6.3 E17-E08 S29-S27
     15 1124  290 (S43E16 L= 22)   299     40        0 (1106/ 268-1144/ 316) -90.0 E17-E14 S45-S40
  

    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