Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  996 1873 (N48E40 L=220)   700     88        0 ( 965/1837-1037/1893)  53.1 E43-E35 N44-N51
      2  905 1818 (N39E40 L=220)   870    119        0 ( 886/1755- 938/1866) -48.0 E44-E34 N34-N44
      3 1239 1572 (N32E04 L=256)   769    150        1 (1215/1500-1268/1641) -70.0 E06-E01 N27-N38
      4 1461 1498 (N35W13 L=273)  1642    440        2 (1319/1320-1568/1610) -22.6 W00-W24 N26-N41
      5 1627 1098 (N16W34 L=294)  1181    225        5 (1587/1029-1683/1209) -35.0 W29-W39 N11-N21
      6 1606  904 (N05W38 L=297)   383     92        0 (1580/ 869-1628/ 935)  76.0 W35-W39 N02-N06
      7 1535  808 (S03W36 L=296)   308     83        0 (1515/ 768-1549/ 839) -45.0 W33-W37 S04-N00
      8  891  641 (S31W04 L=264)   340    108        1 ( 870/ 598- 905/ 694) -63.4 W01-W05 S34-S27
      9  699  633 (S38E09 L=251)   242     52        1 ( 676/ 610- 725/ 658)  63.4 E10-E07 S39-S35
     10  860  489 (S42W08 L=268)   290     77        0 ( 816/ 461- 889/ 516)  59.0 W05-W09 S44-S39
     11  743  461 (S48W00 L=260)   249     64        0 ( 710/ 444- 773/ 480)   0.0 E02-W03 S48-S46
     12 1142  351 (S40W35 L=295)   430     81        0 (1106/ 328-1182/ 374)   7.1 W30-W38 S41-S39
     13 1394  344 (S31W53 L=312)   883    103        0 (1341/ 319-1440/ 372)  11.3 W46-W57 S33-S29
  

    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