Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  469 1695 (N25E59 L=236)   752     90        2 ( 443/1657- 505/1727) -71.6 E63-E56 N21-N27
      2  979 1624 (N28E17 L=278)   661    247        0 ( 941/1545-1042/1711)  90.0 E18-E13 N22-N36
      3 1130 1633 (N33E07 L=288)   689    199        0 (1074/1548-1176/1701) -39.3 E13-E02 N27-N37
      4  539 1559 (N16E44 L=251)   963    166        4 ( 503/1508- 592/1633) -32.5 E49-E38 N13-N20
      5 1554 1585 (N41W26 L=321)   947    156        0 (1473/1550-1621/1608)   8.1 W18-W32 N38-N43
      6  314 1560 (N14E66 L=229)  2416    153        8 ( 259/1510- 383/1605)   8.1 E76-E57 N10-N16
      7 1775 1469 (N40W50 L=345)   639     85        1 (1728/1445-1813/1494)   4.8 W44-W56 N39-N41
      8 1186 1284 (N11W04 L=299)   650    202        1 (1153/1200-1230/1376)  85.2 W02-W05 N05-N17
      9 1371 1196 (N10W17 L=312)   743    280        2 (1328/1078-1434/1315) -53.1 W12-W22 N04-N16
     10 1541 1108 (N09W29 L=324)   617    188        0 (1484/1043-1581/1185)  68.2 W26-W31 N04-N14
     11 1223 1085 (N00W10 L=305)   464    177        0 (1146/1052-1295/1136)  -5.7 W04-W14 N00-N02
     12 1926 1049 (N17W68 L=  3)   751     72        0 (1895/1025-1965/1067)  17.4 W62-W78 N15-N20
     13 1874  997 (N12W60 L=355)   448     70        0 (1856/ 958-1890/1029)  90.0 W58-W62 N09-N14
     14  697  893 (S21E17 L=278)   331    134        0 ( 647/ 857- 736/ 948)  54.5 E20-E15 S23-S16
     15 1210  927 (S09W13 L=308)   205     84        0 (1171/ 911-1252/ 946)   0.0 W10-W15 S09-S08
     16 1055  906 (S13W04 L=299)   244    117        0 (1007/ 876-1119/ 924)  45.0 W01-W07 S15-S10
     17 1247  724 (S19W20 L=315)   500    149        1 (1185/ 673-1298/ 782)  66.0 W17-W21 S23-S14
     18 1480  645 (S18W38 L=333)   289     72        0 (1442/ 629-1519/ 668)  45.0 W35-W39 S19-S15
     19 1255  403 (S38W34 L=329)   387     88        1 (1218/ 384-1298/ 435)  18.4 W31-W37 S39-S36
     20 1576  379 (S30W63 L=358)   623    116        0 (1518/ 352-1620/ 414)  50.2 W58-W65 S32-S26
  

    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