Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  604 1471 (N45E17 L=255)   293     83        0 ( 588/1435- 621/1516)  68.2 E18-E14 N42-N47
      2 1752 1459 (N08W64 L=335)   689     96        0 (1724/1418-1784/1506) -80.5 W61-W66 N05-N11
      3 1782 1242 (S03W56 L=327)   588    177        0 (1738/1207-1832/1267) -24.0 W50-W60 S06-S01
      4  973 1161 (N16W01 L=272)   300     77        0 ( 949/1118-1000/1202)  36.9 E01-W03 N13-N17
      5 1140 1175 (N12W11 L=282)   753    256        1 (1025/1138-1275/1196) -18.4 W03-W18 N08-N15
      6 1680  927 (S17W37 L=309)   875    154        3 (1628/ 881-1743/ 970)  -5.7 W32-W42 S20-S13
      7  457  905 (N14E38 L=234)  2487    635        9 ( 254/ 842- 668/ 963) -22.5 E53-E24 N06-N20
      8 1541  749 (S23W24 L=295)   764    176        2 (1491/ 659-1576/ 833)  41.6 W18-W27 S27-S18
      9 1049  703 (S12E07 L=264)   360    117        0 (1027/ 643-1078/ 756)  45.0 E09-E04 S14-S08
     10  943  705 (S09E13 L=259)   312     95        1 ( 908/ 667- 991/ 740)  18.4 E15-E09 S10-S07
     11  208  637 (N02E73 L=198)   600     97        1 ( 187/ 613- 227/ 658) -33.7 E77-E68 N00-N03
     12  923  623 (S13E16 L=255)   216     84        0 ( 895/ 600- 970/ 654) -45.0 E17-E13 S15-S10
     13 1507  548 (S36W18 L=289)   509    116        1 (1455/ 529-1549/ 569) -29.7 W13-W21 S38-S33
     14  543  345 (S22E54 L=217)  3169    358        3 ( 436/ 220- 632/ 460)  87.3 E58-E50 S33-S12
  

    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