Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1564 1698 (N27W65 L=  1)   550     77        1 (1520/1682-1604/1714) -18.4 W60-W70 N24-N28
      2 1163 1443 (N26W21 L=316)   559    192        2 (1091/1417-1268/1462) -31.0 W16-W26 N22-N28
      3  884 1392 (N31W02 L=298)   481    163        0 ( 813/1363- 968/1414) -18.4 E02-W07 N29-N32
      4  437 1350 (N41E33 L=263)   587    133        0 ( 374/1322- 502/1371)   0.0 E39-E26 N39-N42
      5  785 1167 (N21E10 L=286)   782    376        3 ( 635/1100- 950/1206) -11.3 E20-W00 N17-N23
      6 1866 1110 (S14W60 L=355)  1579    202        0 (1792/1041-1902/1191)  10.0 W49-W66 S16-S09
      7 1128 1096 (N08W07 L=303)   249    156        0 (1067/1033-1181/1136) -69.4 W05-W09 N03-N11
      8  626  958 (N13E25 L=271)   948    258        5 ( 592/ 842- 680/1073)  81.9 E26-E22 N05-N19
      9 1697  919 (S18W38 L=334)   294     62        0 (1673/ 891-1716/ 950)  45.0 W36-W40 S19-S16
     10  359  563 (S04E57 L=238)  4147    547       15 ( 288/ 368- 454/ 831)  53.1 E71-E45 S17-N11
     11  434  781 (N07E42 L=253)   552     96        2 ( 392/ 745- 474/ 811) -38.7 E45-E40 N04-N09
     12 1642  749 (S27W31 L=327)   580    167        0 (1614/ 663-1675/ 811)  45.0 W27-W34 S31-S23
     13 1165  604 (S20E03 L=292)   373     91        1 (1138/ 579-1196/ 636)  11.3 E05-W00 S22-S18
     14  437  527 (S08E52 L=244)   298     36        1 ( 418/ 507- 459/ 550) -45.0 E53-E50 S09-S06
     15  666  498 (S14E36 L=259)   874    234        2 ( 599/ 442- 780/ 541)  -4.1 E42-E28 S17-S11
     16 1092  469 (S27E12 L=284)   500    122        2 (1068/ 413-1114/ 532)  71.6 E14-E09 S31-S22
     17  722  412 (S21E37 L=259)   815    242        2 ( 622/ 364- 799/ 473)  -8.7 E43-E29 S24-S17
     18  700  359 (S24E41 L=254)   311     85        1 ( 674/ 333- 734/ 393) -78.7 E43-E40 S26-S21
     19  941  192 (S44E39 L=257)   848     96        2 ( 912/ 151- 968/ 225)  22.6 E45-E33 S47-S40
  

    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