Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1606 (N30W37 L= 91)   981    217        0 (1380/1518-1430/1705)  40.2 W31-W44 N24-N36
      2 1057 1541 (N31W11 L= 65)   487    133        0 ( 988/1522-1125/1558) -26.6 W05-W14 N28-N32
      3 1523 1500 (N21W41 L= 96)   360    111        0 (1476/1476-1575/1516) -15.9 W37-W44 N18-N22
      4 1690 1450 (N15W53 L=108)   799    127        0 (1655/1409-1724/1503)  71.6 W49-W55 N12-N18
      5 1760 1382 (N11W57 L=111)   857    135        2 (1730/1321-1792/1447)  54.5 W52-W61 N07-N14
      6 1649 1375 (N12W47 L=101)   298     56        0 (1630/1352-1669/1403) -90.0 W44-W48 N10-N13
      7  559 1118 (N12E27 L= 28)   493    207        0 ( 494/1049- 623/1204) -57.5 E30-E23 N07-N18
      8 1117 1042 (S00W06 L= 60)   265     89        0 (1073/1026-1160/1060)   0.0 W02-W08 N00-N00
      9 1237  915 (S09W11 L= 65)   570    214        0 (1202/ 810-1256/1011)  85.2 W09-W12 S15-S03
     10  702  651 (S17E26 L= 29)  3501    857        4 ( 501/ 308- 808/ 989)  79.5 E39-E21 S39-N04
     11 1467  953 (S10W26 L= 80)   435    163        0 (1396/ 931-1527/ 987)  -7.1 W21-W29 S11-S08
     12  320  773 (S05E50 L=  4)   328     74        0 ( 294/ 741- 350/ 810)  29.7 E53-E46 S06-S02
     13  490  770 (S07E37 L= 17)   882    183        3 ( 428/ 737- 565/ 810)   5.7 E41-E31 S09-S04
     14  286  649 (S11E58 L=356)  4217    276       12 ( 206/ 540- 364/ 749)  85.6 E69-E49 S18-S05
     15  473  709 (S10E40 L= 15)   385     41        0 ( 445/ 690- 504/ 731) -26.6 E42-E37 S11-S09
     16  386  687 (S10E47 L=  7)   292     41        1 ( 364/ 662- 411/ 709) -18.4 E48-E45 S11-S09
     17 1174  623 (S26W03 L= 58)  1163    271        3 (1064/ 552-1284/ 702)  21.8 E04-W11 S29-S22
     18  339  498 (S21E61 L=353)  1947    207        3 ( 280/ 419- 406/ 578)  14.5 E81-E50 S25-S16
     19  611  281 (S40E51 L=  3)   856    113        1 ( 562/ 254- 658/ 315)  -5.2 E58-E44 S41-S37
  

    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