Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1706 1504 (N15W62 L=274)  1058    166        1 (1671/1417-1735/1571)  38.7 W57-W67 N10-N19
      2  330 1425 (N46E50 L=162)   412     75        1 ( 297/1405- 366/1441)  -5.7 E54-E44 N44-N47
      3 1484 1275 (N10W34 L=246)   319    103        0 (1455/1232-1515/1325) -90.0 W32-W34 N06-N13
      4 1437 1045 (S01W24 L=236)  1386    388        2 (1331/ 876-1548/1150)  25.3 W14-W33 S08-N03
      5 1771  972 (S15W47 L=259)  1522    229        3 (1733/ 876-1830/1031)  37.9 W43-W54 S20-S11
      6  333  953 (N16E47 L=165)   259     90        0 ( 303/ 934- 380/ 970)   7.1 E50-E42 N15-N17
      7 1271  906 (S05W11 L=223)   194    101        0 (1226/ 889-1318/ 929) -45.0 W09-W13 S06-S02
      8 1172  787 (S10W03 L=215)   553    156        2 (1120/ 753-1237/ 836) -33.7 W00-W06 S11-S06
      9  993  767 (S07E08 L=204)   218     73        0 ( 967/ 738-1027/ 803) -63.4 E08-E06 S09-S04
     10  938  752 (S06E11 L=201)   298     70        0 ( 922/ 722- 962/ 790) -90.0 E12-E09 S08-S04
     11  416  756 (N04E45 L=167)   330     71        1 ( 371/ 744- 447/ 773) -18.4 E48-E41 N02-N04
     12 1162  708 (S14W01 L=213)   341    106        2 (1121/ 676-1188/ 740) -63.4 E01-W02 S16-S12
     13  988  689 (S11E10 L=202)   221     55        0 ( 968/ 661-1013/ 711)  26.6 E11-E07 S12-S09
     14  545  631 (S06E39 L=173)   294     40        1 ( 523/ 606- 565/ 658) -90.0 E40-E37 S07-S04
     15  651  560 (S12E34 L=178)   458    145        0 ( 624/ 511- 691/ 620) -90.0 E35-E32 S15-S07
     16  981  542 (S20E14 L=198)   345    120        0 ( 947/ 500-1015/ 600)  35.5 E17-E10 S22-S17
     17 1471  564 (S32W18 L=230)   259     58        0 (1449/ 535-1489/ 596)  45.0 W15-W19 S33-S29
     18  548  524 (S13E43 L=169)  1257    230        4 ( 492/ 474- 623/ 588) -58.0 E47-E37 S16-S07
     19  553  441 (S18E46 L=166)  1489    310        3 ( 456/ 395- 666/ 483)  -6.7 E55-E36 S21-S14
     20  753  338 (S29E38 L=174)  1086    296        3 ( 668/ 250- 867/ 446)  21.0 E50-E24 S34-S23
     21  497  337 (S24E60 L=152)  6112    251        9 ( 400/ 222- 575/ 421)  45.0 E79-E49 S35-S18
  

    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