Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1318 1617 (N33W27 L=270)   437     80        1 (1287/1595-1362/1644)  -9.5 W24-W30 N31-N35
      2 1657 1506 (N23W51 L=294)   360     91        0 (1615/1490-1709/1517)   0.0 W46-W56 N22-N23
      3  496 1382 (N25E33 L=211)   253    107        0 ( 452/1368- 542/1400)  -7.1 E36-E28 N23-N25
      4 1614 1234 (N06W39 L=283)   810    121        3 (1552/1185-1659/1264) -23.2 W35-W43 N03-N08
      5  462  892 (S04E37 L=207)   521     81        1 ( 422/ 852- 491/ 922) -53.1 E39-E34 S06-S02
      6 1911  845 (S19W68 L=311)  2809    179        5 (1872/ 765-1961/ 908)  90.0 W62-W79 S23-S14
      7  176  704 (S13E69 L=174)  4834    301       10 ( 127/ 595- 243/ 837) -82.4 E80-E62 S19-S04
      8 1781  722 (S25W54 L=297)   630    177        0 (1723/ 666-1830/ 794)  41.2 W48-W58 S28-S21
      9  261  703 (S14E58 L=185)  1316    272        2 ( 205/ 598- 334/ 774) -63.4 E64-E53 S20-S08
     10 1820  657 (S30W61 L=305)   976    129        2 (1759/ 616-1877/ 689)   6.7 W54-W71 S32-S27
     11 1133  531 (S33W03 L=246)   992    390        2 ( 956/ 471-1292/ 577)   2.4 E10-W14 S35-S30
     12  591  498 (S30E36 L=207)   327     64        2 ( 564/ 467- 615/ 538)  33.7 E39-E33 S31-S27
     13 1505  459 (S41W33 L=277)  1507    274        4 (1365/ 411-1627/ 503)   9.9 W21-W44 S43-S38
     14  860  422 (S38E19 L=225)   266     52        2 ( 827/ 408- 895/ 436)   0.0 E21-E15 S38-S36
     15 1592  345 (S52W52 L=295)   820     85        1 (1557/ 320-1634/ 378) -10.6 W43-W59 S54-S48
  

    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