Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  625 1755 (N69E11 L=104)  1518    197        4 ( 537/1695- 698/1807)   5.7 E27-W04 N65-N72
      2 1631 1667 (N23W71 L=186)   640     60        0 (1605/1644-1654/1690) -90.0 W68-W74 N21-N25
      3 1679 1625 (N19W72 L=187)   955     49        2 (1652/1599-1706/1651)  -9.5 W67-W80 N17-N20
      4 1558 1515 (N19W50 L=165)   663    214        0 (1462/1465-1641/1544) -45.0 W44-W55 N13-N23
      5  988 1452 (N32W10 L=125)   219     80        1 ( 958/1414-1019/1478) -68.2 W08-W11 N29-N34
      6  438 1329 (N39E34 L= 81)   656    127        1 ( 398/1275- 482/1371) -36.9 E38-E30 N35-N43
      7  565 1131 (N24E26 L= 89)   318    111        0 ( 515/1121- 624/1142) -14.0 E29-E21 N22-N25
      8  830 1012 (N11E11 L=103)   216    104        1 ( 779/ 991- 871/1029)  -9.5 E14-E08 N09-N13
      9  129  987 (N23E74 L= 41)  1087     94        0 ( 105/ 941- 158/1022)  21.8 E80-E68 N20-N25
     10  401  954 (N17E42 L= 73)   479    117        0 ( 383/ 901- 430/1009)  45.0 E43-E38 N14-N19
     11 1464  885 (S13W22 L=137)   628    124        1 (1429/ 824-1493/ 954)  54.5 W19-W25 S16-S09
     12 1040  722 (S10E07 L=108)   362    120        3 (1005/ 676-1087/ 766)  33.7 E09-E03 S12-S08
     13 1701  686 (S33W37 L=152)   823    113        1 (1681/ 627-1719/ 740)  66.8 W35-W39 S37-S29
     14  887  612 (S13E19 L= 96)   560    264        1 ( 871/ 466- 906/ 710)  65.0 E23-E15 S22-S07
     15  666  490 (S16E37 L= 78)   323     40        2 ( 638/ 466- 694/ 514) -33.7 E38-E35 S17-S13
  

    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