Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  638 1666 (N22E43 L=238)  1554    170        4 ( 556/1618- 730/1701)  24.4 E48-E37 N17-N25
      2 1545 1500 (N35W21 L=303)  1343    239        1 (1429/1435-1644/1553)   3.0 W11-W30 N33-N37
      3  305 1499 (N06E63 L=219)   991    121        5 ( 251/1442- 328/1543) -36.9 E67-E57 N02-N08
      4  430 1435 (N04E47 L=234)   309     70        0 ( 418/1402- 448/1471) -76.0 E49-E46 N01-N05
      5 1806 1204 (N25W48 L=329)  1088    255        2 (1774/1099-1830/1335) -86.2 W43-W51 N17-N32
      6  201 1270 (S09E64 L=217)   672     88        3 ( 178/1227- 228/1317) -32.0 E68-E59 S11-S06
      7  830 1214 (S01E15 L=266)   385     97        1 ( 783/1182- 867/1239)   0.0 E18-E13 S03-N00
      8 1731 1137 (N18W41 L=322)   275     34        0 (1711/1121-1758/1152)  14.0 W39-W43 N16-N19
      9  825  861 (S21E08 L=274)   462    162        1 ( 766/ 805- 891/ 889)  -6.3 E11-E02 S22-S19
     10 1105  777 (S19W11 L=292)   202     88        0 (1066/ 765-1147/ 792)  36.9 W08-W12 S19-S16
     11  983  694 (S27W06 L=287)   197     70        0 ( 948/ 664-1006/ 719) -11.3 W03-W08 S27-S25
     12  501  569 (S47E27 L=254)   803    122        2 ( 446/ 532- 567/ 605)  -4.8 E32-E20 S48-S45
     13  636  534 (S46E14 L=267)   333     51        1 ( 611/ 507- 657/ 565) -53.1 E16-E11 S47-S43
  

    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