Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1138 1504 (N27E07 L= 34)   380     69        1 (1109/1474-1166/1530) -26.6 E08-E04 N24-N28
      2 1000 1068 (S02E02 L= 38)   215     99        0 ( 949/1054-1045/1090)  21.8 E05-W00 S03-N00
      3 1866  967 (N16W60 L=100)  2461    256        7 (1825/ 852-1891/1061) -42.3 W53-W64 N09-N22
      4 1667  973 (N10W41 L= 81)   332    135        1 (1635/ 904-1690/1027) -35.5 W37-W44 N07-N12
      5  355  943 (S25E42 L=359)   825    234        3 ( 285/ 909- 430/1012)  32.5 E47-E36 S27-S19
      6  761  965 (S14E14 L= 27)   347    136        0 ( 695/ 932- 827/ 991)  45.0 E17-E09 S17-S11
      7  232  874 (S32E53 L=348)   390     87        1 ( 221/ 825- 242/ 912) -78.7 E53-E51 S35-S29
      8  749  792 (S24E10 L= 30)   347    112        0 ( 689/ 773- 806/ 818)   7.1 E14-E06 S25-S23
      9 1330  685 (S15W27 L= 68)   410    141        0 (1304/ 617-1363/ 744) -69.4 W26-W30 S18-S10
     10  452  672 (S40E31 L= 10)  1015    126        2 ( 405/ 610- 501/ 730) -29.1 E35-E25 S43-S36
     11  648  621 (S38E14 L= 27)   538    134        0 ( 588/ 605- 724/ 642)  15.3 E18-E07 S39-S35
     12 1136  616 (S24W18 L= 59)   315    114        0 (1077/ 603-1202/ 626)  20.6 W14-W22 S26-S22
     13 1537  387 (S25W56 L= 97)  2140    412        1 (1370/ 285-1704/ 486)  57.5 W47-W66 S36-S14
     14 1563  435 (S22W55 L= 96)   360     45        1 (1544/ 415-1584/ 455)  90.0 W53-W57 S23-S20
  

    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