Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  910 1669 (N29E28 L=238)   363    101        0 ( 849/1649- 943/1688)  18.4 E30-E24 N26-N30
      2  649 1526 (N13E37 L=228)   573    199        2 ( 598/1483- 704/1575)  66.8 E39-E35 N09-N17
      3 1001 1515 (N22E16 L=250)   625     98        1 ( 965/1478-1049/1557)  -7.1 E19-E11 N19-N23
      4  543 1402 (N03E39 L=226)   302     81        0 ( 524/1368- 562/1438) -31.0 E41-E36 N01-N05
      5 1246 1375 (N20W03 L=268)   272     80        0 (1202/1345-1275/1398)   0.0 W00-W05 N18-N21
      6  465 1348 (S02E43 L=222)   307     70        1 ( 436/1329- 503/1366)  11.3 E45-E40 S03-N00
      7  894 1306 (N06E15 L=250)   383    116        0 ( 843/1253- 931/1339) -15.9 E18-E11 N03-N07
      8  771 1224 (S01E20 L=246)   563    191        0 ( 705/1193- 864/1291)   0.0 E25-E13 S02-N00
      9  223 1170 (S17E58 L=207)  1877    484        7 ( 129/1028- 331/1286)  54.2 E65-E51 S26-S08
     10 1210 1228 (N11W05 L=270)   207     33        1 (1182/1208-1230/1246)   0.0 W02-W05 N09-N12
     11  366 1065 (S20E43 L=223)  2226    416       10 ( 310/ 941- 415/1225) -51.3 E51-E37 S27-S11
     12  127 1158 (S19E70 L=195)  1006    170        2 ( 101/1121- 140/1194) -78.7 E73-E67 S21-S16
     13 1059  872 (S13W06 L=272)   196     77        1 (1017/ 847-1094/ 901)  59.0 W04-W07 S15-S10
     14  675  856 (S24E16 L=249)   209     47        0 ( 651/ 842- 704/ 874)  18.4 E17-E14 S25-S23
     15  400  856 (S32E36 L=229)   250     53        1 ( 376/ 842- 428/ 873)  21.8 E38-E33 S32-S30
     16 1009  786 (S19W06 L=271)   352     79        0 ( 964/ 758-1048/ 810)  11.3 W03-W08 S21-S17
     17  160  776 (S42E60 L=205)   664     83        0 ( 145/ 744- 177/ 802)  63.4 E61-E57 S44-S40
     18  493  602 (S46E25 L=240)   263     59        0 ( 474/ 565- 510/ 635) -68.2 E27-E23 S48-S43
     19 1610  523 (S15W54 L=319)   314     89        1 (1581/ 498-1634/ 540)   9.5 W51-W57 S16-S13
     20 1386  492 (S24W40 L=305)   303    111        0 (1344/ 469-1428/ 514)   8.1 W36-W43 S24-S22
     21  802  425 (S48W06 L=272)   904    196        0 ( 717/ 392- 892/ 467)   7.6 E02-W13 S50-S44
  

    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