Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1840 (N51W55 L=244)   493     46        1 (1205/1815-1249/1862)   7.1 W49-W58 N49-N52
      2  538 1491 (N47E25 L=164)   400    110        1 ( 491/1459- 591/1520)  11.3 E30-E19 N45-N48
      3 1692 1440 (N12W57 L=246)   414    104        1 (1667/1391-1710/1487)  63.4 W54-W58 N09-N15
      4 1471 1410 (N17W38 L=227)   391    127        1 (1418/1385-1530/1435) -39.8 W35-W41 N15-N20
      5 1731 1209 (S01W50 L=239)  2144    425        1 (1622/1027-1830/1313)  15.6 W36-W62 S08-N04
      6  519 1215 (N29E29 L=161)   656    205        1 ( 425/1172- 607/1246)   0.0 E36-E21 N27-N30
      7 1901 1025 (S17W64 L=253)  6335      0       19 (1840/ 868-1960/1143)  26.6 W54-W79 S24-S11
      8  737 1046 (N15E16 L=173)   820    405        1 ( 581/1009- 898/1098)  -2.6 E27-E05 N11-N17
      9  229 1051 (N24E57 L=132)  1009    126        2 ( 179/1015- 281/1095)  20.0 E63-E51 N21-N26
     10 1504  992 (S06W27 L=216)   246    109        0 (1476/ 934-1535/1025)  31.0 W24-W29 S08-S05
     11  170  915 (N16E66 L=123)  3160    303       11 ( 102/ 801- 218/ 996) -76.0 E79-E59 N09-N21
     12 1322  934 (S05W15 L=204)   242     77        1 (1309/ 890-1337/ 974)  78.7 W14-W15 S07-S02
     13 1483  846 (S14W23 L=212)   595    130        3 (1442/ 793-1530/ 883)   8.1 W19-W26 S16-S11
     14  735  861 (N04E20 L=169)   223     87        0 ( 697/ 846- 784/ 874) -11.3 E22-E17 N03-N04
     15  880  719 (S07E15 L=174)   367     97        2 ( 846/ 686- 929/ 758) -78.7 E17-E13 S09-S04
     16 1170  732 (S13W02 L=191)   244     60        0 (1140/ 702-1192/ 757)  33.7 W00-W03 S14-S11
     17  960  721 (S09E11 L=178)   421     88        3 ( 920/ 684- 992/ 751) -53.1 E12-E08 S10-S06
     18 1289  641 (S21W07 L=196)   551    208        1 (1216/ 579-1348/ 722)  28.6 W00-W11 S23-S17
     19  828  652 (S10E20 L=169)   375     85        2 ( 797/ 611- 856/ 685)  31.0 E22-E17 S11-S08
     20  880  555 (S17E20 L=169)  1426    464        4 ( 697/ 489-1031/ 650)   4.6 E33-E08 S20-S14
     21  891  580 (S16E19 L=171)   398    110        1 ( 836/ 562- 940/ 612) -18.4 E21-E15 S16-S13
     22  370  467 (S13E62 L=127)  3563    360       11 ( 303/ 322- 439/ 593)  45.0 E76-E54 S24-S05
     23  700  370 (S25E40 L=150)   926    213        3 ( 633/ 287- 757/ 457)  81.9 E43-E37 S32-S18
     24  990  385 (S31E20 L=170)   879    264        1 ( 893/ 288-1078/ 449)  20.2 E30-E11 S35-S27
     25  657  313 (S29E47 L=142)   624    123        0 ( 629/ 266- 680/ 359)  28.6 E53-E42 S32-S25
     26  600  322 (S27E51 L=138)   726     84        1 ( 579/ 281- 627/ 358)  60.3 E55-E46 S30-S23
     27  695  245 (S35E50 L=139)   385     55        0 ( 674/ 221- 714/ 277)  24.0 E54-E45 S36-S32
  

    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