Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1212 1807 (N52W13 L= 89)   391     61        1 (1174/1788-1246/1827) -15.9 W09-W16 N49-N53
      2 1477 1653 (N40W34 L=109)   340     31        1 (1458/1629-1496/1679)  59.0 W31-W36 N37-N42
      3 1564 1479 (N27W37 L=112)   362     59        0 (1535/1451-1593/1502) -26.6 W34-W38 N25-N28
      4  282 1301 (N11E54 L= 22)  1167    310        0 ( 248/1152- 332/1416)  86.6 E56-E51 N01-N18
      5  505 1268 (N09E34 L= 41)   238     67        0 ( 476/1252- 544/1288)   0.0 E36-E31 N08-N10
      6 1845 1099 (N06W59 L=134)   762    102        2 (1811/1050-1867/1150)  80.5 W54-W61 N02-N08
      7 1176  892 (S11W10 L= 86)   299    147        1 (1116/ 832-1213/ 940)  54.5 W06-W11 S15-S08
      8 1001  867 (S14E01 L= 75)   241    148        1 ( 965/ 808-1058/ 891)  51.3 E02-W02 S17-S12
      9  203  811 (S18E62 L= 14)  1275    229        4 ( 155/ 727- 270/ 876)  36.9 E69-E53 S23-S14
     10 1681  749 (S17W47 L=123)   887    177        1 (1619/ 693-1736/ 829)  60.9 W42-W50 S20-S11
     11 1188  748 (S20W12 L= 87)   601    125        2 (1133/ 695-1233/ 813)  74.1 W08-W14 S23-S15
     12  399  772 (S21E43 L= 33)   279     43        0 ( 380/ 747- 416/ 805) -90.0 E44-E41 S22-S18
     13  924  733 (S22E05 L= 71)   432    161        0 ( 855/ 710- 996/ 763) -18.4 E09-W00 S23-S20
     14 1324  519 (S34W25 L=101)   557     81        1 (1281/ 491-1368/ 551) -15.9 W21-W28 S35-S32
     15 1014  160 (S68W08 L= 84)   504     60        0 ( 989/ 135-1041/ 186) -28.6 W03-W14 S71-S65
  

    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